clear all
set mem 100m
local path0="C:\Dropbox\GeneticsProject (1)\REStat\round_accepted_replication_files\"

cd "`path0'workfiles"

use completed_data, clear

capture drop ln_eiu_ppm
gen ln_eiu_ppm=log(eiu_ppm)			

*========================================================================
*  									FIGURES
*========================================================================

twoway  (scatter pwt_ln_rgdpwok idv, mlabel(countrycode) ) (lfit pwt_ln_rgdpwok idv ), ///
	   ytitle("Log GDP per worker (Penn World Tables)") xtitle("Hofstede's index of individualism") ///
	  legend(off) title("Panel A")	name(panelA, replace)
	  
twoway  (scatter hjtfp idv, mlabel(countrycode)) (lfit hjtfp  idv ), ///
	   ytitle("Log TFP relative to USA (Hall and Jones, 1999)") xtitle("Hofstede's index of individualism") ///
	  legend(off) title("Panel B")	name(panelB, replace)

 
twoway  (scatter ln_eiu_ppm idv, mlabel(countrycode)) (lfit ln_eiu_ppm  idv), ///
	   ytitle("Log patents per million population (EIU)") xtitle("Hofstede's index of individualism") ///
	  legend(off) title("Panel C")	name(panelC, replace)
	  
twoway  (scatter idv distM_UK, mlabel(countrycode)) (lfit idv distM_UK), ///
	   ytitle("Hofstede's index of individualism") xtitle("Blood distance to the U.K.") ///
	  legend(off) title("Panel D") name(panelD, replace)
	  
graph combine panelA panelB	panelC  panelD, imargin(tiny)

	  
	  
	  
	  
	  
